-- background: 2714 from stack: in
-- bmap block id: 3173
-- flags: 0000
-- background id: 0
-- name: CARDNO
----- HyperTalk script -----

on openCard
  put "Card" && number of this card && "of" && number of cards into field 3
  set scroll of field "congressmen" to 0
  pass openCard
end openCard




-- part 1 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=114 top=10 right=41 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: State


-- part 2 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=114 top=67 right=111 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Senators


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=322 right=340 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go prev card of this bg
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=241 top=322 right=340 bottom=261
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go next card of this bg
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=291 top=322 right=340 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp



-- part 6 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=2 top=327 right=342 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: 


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=189 top=322 right=340 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go first card of this bg
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=264 top=322 right=340 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 29903 / 29903
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go Last card of this bg
end mouseUp



-- part 10 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=393 top=318 right=340 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import
----- HyperTalk script -----
on mouseUp
  ask "Name of file to import"
  if it is empty then exit mouseup
  put "HD40SC:" &it into fileName
  open file fileName
  repeat
    read from file fileName until "@"
    if it is empty
    then
    doMenu "delete card"
    close file fileName
    exit mouseUp
  end if
  Delete last char of it
  put it into field "State"
  read from file fileName until "#"
  Delete last char of it
  put it into field "Senators"
  read from file fileName until "^"
  Delete last char of it
  put it into field "Congressmen"
  doMenu "New Card"
end repeat
close file fileName
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=425 top=324 right=342 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Select
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  put empty into SearchKey
  go second
  put card field "KTOC" into theList
  DoList "Select","Cancel",theList,One
  put item 2 of the result into SearchKey
  if number of words in searchKey = 0 then exit MouseUp
  if number of words in searchKey = 1
  then
  put "Find" &&quote &searchKey &quote into msg
  Send ReturnKey
  send ReturnKey
end if
if number of words in SearchKey >= 2
then
put "Find whole" &&quote &searchKey &quote into msg
send returnKey
send ReturnKey
end If
hide msg
end mouseUp




-- part 13 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=114 top=112 right=308 bottom=389
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Congressmen


-- part 15 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=452 top=316 right=338 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cleanup
----- HyperTalk script -----
--on mouseUp
go first
repeat with c = 1 to number of cards
  go card c
  delete line 1 of field "congressmen"
end repeat
--end mouseUp